home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / Alert < prev    next >
Encoding:
Text File  |  1996-12-13  |  2.0 KB  |  90 lines
  1. /*
  2.  
  3. $VER: Alert 1.0 (22.12.95) by David De Groot 
  4.  
  5. simple alarmscript
  6.  
  7. */
  8.  
  9.  
  10.  
  11. NL = '0a'x
  12.  
  13. bool = exists('libs:rexxreqtools.library')
  14. if BOOL = 0 then say "You need RexxReqTools.library"
  15. else call addlib('rexxreqtools.library',0,-30)
  16.  
  17.  
  18. begin:
  19.  
  20. zip = rtgetlong( "15","Within" nl,
  21.                   "how many minutes" nl,
  22.                   "would you like to be notified?",,
  23.                   "Tell me", "Start|Set hour|_Cancel",,
  24.                   'rtgl_min = 1 rtgl_max = 360 rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext rtez_defaultresponse = 0 ')
  25.  
  26.  
  27. if rtresult == 2 then do
  28.  
  29. zip2 = rtgetstring("00:00", "Insert time to be notified." nl,
  30.                    "(Keep the ':' for seperation)" nl,
  31.                    "Don't enter secs.",,                  
  32.                    "Tell me", "Ok|_Cancel",,
  33.                    'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext rtez_defaultresponse = 0 ')
  34.  
  35.  
  36. if zip2 == '00:00'
  37. then
  38. call rtezrequest("Are you sure you want to be" nl,
  39.                  "notified at" zip2 "?",,
  40.                  "Ok|_No way!",,
  41.                  "Alert:",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  42.  
  43. if rtresult == 0 then signal begin
  44.  else do
  45. address command 'wait until ' || zip2 || ' '
  46.  
  47. call rtezrequest("ALERT!" nl,
  48.                  "" nl,
  49.                  "It's" nl,
  50.                  zip2 "allready." nl,
  51.                  "",,
  52.                  "Ok! |_Run again",,
  53.                  "Alert:", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  54.  
  55. if rtresult == 1 then exit
  56.  end
  57.  
  58. if rtresult == 0 then signal begin
  59.  end
  60.  
  61. if rtresult == 0 then exit
  62.  
  63.  
  64. if rtresult == 1
  65. then do
  66.  
  67. address command 'wait ' || zip || ' mins'
  68.  
  69. call rtezrequest("ALERT!" nl,
  70.                  "" nl,
  71.                  "It's been" nl,
  72.                  zip "minutes allready." nl,
  73.                  "",,
  74.                  "Ok! |_Run again",,
  75.                  "Alert:", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  76.  
  77. if rtresult == 1 then exit
  78.  end
  79.  
  80. if rtresult == 0 then signal begin
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.